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sheet_feed, Wyablontn init ated pauSe_task and s 
hangup code, read and write item services 
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Bugfixes, page_setup_mo 


38-002 GRR3002 Gregory R. Robert 
Rewrite for new design. 


38-001 GRR3001 Gregory R. Robert 
Created new module. 
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"ae 0070 1 LIBRARY ‘SYSS$LIBRARY: LIB"; 

; ie 9071 1 REQUIRE ‘LIB$:SMBDEF' 

: 3 9 3 REQUIRE ‘SRC$:SMBREQ': 

; 75 1021 1 EXTERNAL wh 

; 76 10 ¢ 1 PSMSREPOR 

ED i 1023 1 PSms INCLUDE MODULES, 
: 78 1024 1 PSMSREAD_ITEM 

; 79 1025 1 PSMSSCHEDULE NON LAST, 
3 80 1026 1 PSMSSTORE_ERROR 

Bo By 1027 1 EXPAND _ CONDITION. VECTOR 
3 B¢ 1028 1 F 

3 8 1029 1 

; 684 1030 1 LITERAL 

ce 1031 1 ree -MASK = %B '001000', ! delete leading blanks 
: 86 1038 1 SIZE™ == O, 

3 87 1033 (1 ADDR s 

; «688 1034 1 3 

; «89 1035 1 

; 690 1036 1 OWN 

:; (91 1037 1 BURST 

3 92 1038 1 3 

‘oe | 1039 1 
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ORS = prints error text associated with 12: -Sep-1984 DISKSVMSMAS 


gg Ae Senrletteer error text associated with the current file’ 
n: 
his input routine returns the contents of the file errors 
eeeeene descriptor. The errors have already been expanded 
into text messages by other routines. 


Formal Parameters: 
STANDARD INPUT ROUTINE CALLING INTERFACE 


Implicit wens: 
on 
Implicit Outputs: 
none 
Returned wets 


eee ee ee ee ee ee ee ee ee 


' Side Effects: 


GLOBAL ROUTINE PSMSFILE_ERRORS ( 
SMB_ CONTEXT : REF SLONGWORD, 
USER CONTEXT : REF VECTOR, 
FUNC “ARG : REF VECTOR 
BEGIN 


LOCAL 
SCB : REF S$BBLOCK 


: If mot a READ call then ignore it 
IF gFUNCTIONCS NEQ PSM$K_READ 
RETURN PSM$_FUNNOTSUP; 


WIS ewe oP ro a oP a? a a a a a? a? Pe 


Locate the SCB | 
SCB = -SMB_CONTEXTC); 

! Case on the record number (which is the number of times this routine 

has been called with READ during this invocation 

CASE. SCBLPSMSL_ RECORD_NUMBER] FROM 0 TO 1 OF 


S 
8 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
; 
2 
2 
2 
2 
2 
2 
a Output a form feed 


el el ee ee eel ne cel el el cere cl eel el eel eel el el el cel eel el cel el el cl el cl el el cel cel el el cel cl eel cel el cl cl cel el eel eel ell eel ieee eel eel cece sels cell cell cil nn" 


3 3 
i's 
; 3 
ae 
; 3 
, 3 
3. 63 
5 4 
gt 
; 3 
‘7% 
7 
SS 
3 
; 7 
3 7 
. % 
3; 6 
3 ¥ 
; ¥ 
3; ¥ 
s } 
. Y 
3 ¥ 
; 
: 7% 
a 
3 ¥ 
; 3 
. s 
sf 
; 3 
3; 7 
; ¥ 
. ¥ 
; 7 
.y 
; 3 
. 
3 
g 6 
s 
; 
; 7 
es 
3s } 
3; (Y 
; % 
_ 
. 
3 
a 
= 
; 7 
5 ¥ 
. 7 
. 3 


SOOOWNA VE WWN @ O OONO UE WN SO OONO VEWN SO VDONAOUS WAR“ OVDONAOUSWWR "ODO ONOULS 


DO NINN NNN NSA AAAAA AA AXA & BBE EEE BWA 


(01: 
BEGIN 


T 
000 


VWO0OO0O0OWMOMCMCOCDODCD 
2 es TH 
UWNNIWIWAIWIWwwrornononon oo 
DWONAOULS WN —OWOVNOULS WN —OWONOuw moa 


POPONINONONY — tt 2 ot 


jo jojleolololeo) +} +) :) 


uw 


See Se Ge Ge Se Ge Ge Ge Se OH Ge he Os Oe SH Se Se Se SH Se Se ee Seas 


t yap rent -- input services 
ERRORS - prints error text associated with 


FUNC_DESC aiee = 
EUNC APESE ADDR 


Output the message text 


ND; 


Done, return EOF 


COUTRANGE): 
RETURN PSM$_EOF; 


TES; 


00000 BURST: 


OC 00000 P.AAA: 


1: 
= UPLIT BYTE (PSMSK_CHAR_FF); 


~e 


(1): 
BEGIN 
COPY_DX_DX_ (SCBCPSM$Q_CONDITION_TEXT] 
CLEAR_STRING_ (SCBLPSMSG_COND1TION TEXT] 
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FUNC_DESC); 
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\V04-000\ 


DATA,NOEXE,2 
4 

CODE ,NOWRT ,2 
12 


$ 
STRSPREFIX, STRSRIGHT 
PSM$S_HANGUP DISPATCH ENTRY 
PSM$_BUFFEROUF, PSM$ EOF 
PSMS-ESCAPE, PSM$ FLOSH 
PSM$-FUNNOTSUP, PSM$_INVITMCOD 
PSM$~INVVMSOSC, PSM$~MODNOTF ND 
PSMS"NEWPAGE, PSM$_NOFILEID 
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v04-000 FILE_ERRORS - prints error text associated with 14- et 7 93: 48: 38 DISKSVMSMASTER: CPRTSMB.SRCJINPUT. B32, ha (4) v04- 


XTRN PSM$_OSCTOOLON 


PSM$_PENDING 
TRN PSMS-SUSPEND, PSM 


x $_TOOMANYLEV | ; Ro 
XTRN SMBS~INVSTMN BR. Snes. INVSTRLEV 

XTRN SMBS$~NOMOR S 

XTRN PSMSREPORT PEMSINCLUDE _MODULES 
XTRN PSMSREAD_If 

XTRN PSMSSCHEBULE_NON_AST 

XTRN PSMS$STORE_ERRORS~ 

XTRN EXPAND. CONDITION_VECTOR 


000¢ 00000 ENTRY PSMSEILE ERRORS, Save R2,R3 : 1089 
05 0C BC D1 00002 ¢ @FUNCTION, + 1104 
08 13 00006 BEQL : 
50 000000006 8F D0 00008 MOVL  #PSM$_FUNNOTSUP, RO + 1106 
04 OO00F RET ¢ 
51 04 BC DO 00010 1$: MOVL § @SMB CONTEXT, (8 + 1111 
01 00 026C C1 CF 00014 CASEL  620(SCB), + 1117 
001A 000¢ OO01A 28: “WORD 38-28, : 
50 000000006 8F DO 0001E MOVL - #PSMS_EOF, RO + 1142 
04 00025 RET : 
50 10 AC DO 00026 35: MOVL  FUNC_DESC, RO : 1125 | 
69 01 00 0002A MOVL #1, TRO) : 
04 AO CF AF «9E 00020 MOVAB P.AAA, 4(RO) + 1126 
3F 11 00032 BRB - Tike 
52 0198 C1 9E 00034 4s: MOVAB 408(SCB), R2 > 1134 
52 DD 00039 PUSHL : 
10 AC DD 00038 PUSHL  FUNC_DESC : 
000000006 99 02 FB 0003E CALLS #2, STRSCOPY_DX : 
5 50 D0 00045 MOVL RO, STATUS ; 
53 £8 00048 LBS STATUS, 5$ : 
53 DD 00048 PUSHL STAT : 
000000006 00 01 FB 0004D CALLS #1, LIBSSIGNAL : | 
01 03 A2 91 00054 5$: CMPB) 0 s3(R2), #1 > 1135 
0C 1A 00058 BGTRU : 
62 020E0000 8F DO 0005A OVL  #34471936, (R2) : 
04 A2 D4 00061 CLRL = 4 (R2) : 
0D 11 00064 BRB 7$ : 
62 85 00066 6$: TSTw © (R2) : 
09 13 00068 BEQL © 7$ : 
52 DD 0006A PUSHL R2 : 
000000006 00 01 FB 0006C CALLS #1, STRSFREE1_DX : 
50 01 D0 00973 7$: MOVL #1. RO > 1149 
04 00076 RET : 


; Routine Size: 119 bytes, Routine Base: CODE + 0001 


wa OOO 
IDOE WN $0 CONAUVES WN OO DNAUES WN (OO ODNAULS WN (OVD ONOUS WN ODO 


HARD Aaa & BB EE EE BAA inononunononororornory 


2 
; 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
; 
; 
2 
2 
2 
2 
2 
2 
2 
é 
2 


6 


OAR WN 26 OO VOAUNEWN 2 OOD NA UE WN OC OODNOAU EWN (OOD NAUEWR HOD DNOULWRSO 


SDOODOOOSOWOOOO OO OOO 00 00 09 00 09 09 09 09 09 SI SIN NINNNOAA AOA AOAAAAOMMIMIUIUIUT 


wnr—OoOon 


mbiont -- input services 
ORMATION 


ZSBTTL ‘FILE INFORMATION’ 
' Functional Description: 


condition values 
in conjunction wi 
files. 

Formal Parameters: 

Implicit Inputs: 
none 


Implicit Outputs: 
none 


Returned Value: 
non 


Side Effects: 
non 


GLOBAL ROUTINE PSMSF ILE_INFORMATI 
SMB_ CONTEXT : REF $LO 


USER_ CONTEXT : REF VEC 
FUNCTION : REF $LO 
FUNC_DESC : REF VECTOR, 
FUNC_ARG : REF VECTOR 
BEGIN * 
LOCAL 


MESSAGE : REF VECTOR, 
ScB : REF S$BBLOCK, 
TEMP : VECTOR C10] 


If not a READ function then ignore 


if ,FUNCTIONC NEQ PSMSK_READ 
RETURN PSM$_FUNNOTSUP; 


Pick up the SCB address 
SCB = .SMB_CONTEXTCI; 


Locate the file information message vector 
MESSAGE = .SCB_ADDR_ (MESSAGE_VECTOR); 


his routine returns the text of any file informational 


ob controller. This is used 
ailures to create batch log 


STANDARD INPUT ROUTINE CALLING INTERFACE 


If this is the second read the we are done -- return EOF 


< 

Oo 

> 
a 


p 8. 
RCJINPUT.B32:1) (5). 


wa] 


PV PVPVPUSUSUSUSU SUSU SU SESE ASESIASIAST ASIST STASI ASIST 


OOFC 00000 


5E 28 C2 00002 
05 0c BC 01 00005 
08 13 00009 

50 000000006 8F 00 00008 
04 00012 

56 04 BC 00 00013 
51 00D0 C6 60 00017 
50 51 DO 0001C 
026c 8666 b 0001F 

08 13 00023 

50 000000006 8F 00 00025 
04 9002C 

6E 60 00 0002D 
04 AE 04 00030 

57 56 44 00033 
50 i ae ae. Ht 
50 04 C2 00038 
00 046 «Al 50 2C 0005E 
08 AE 00044 

10 AC ODD 983 

04 AE 9F 00049 

50 oocce §=¢? 3¢ 0004C 
50 04 g6 00051 
01 AO 9F 00054 

56 DD 00057 

000000006 00 04 FB 604 
50 01 D0 Bate 
04 0006 
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tN ORMATIO 12-88-1382 5:16:38 DISKSVMSMASTE TER: CPRTSMB. SRCJINPUT. B32. 79 


- 4, .SCB_ADDR_ (MESSAGE_VECTOR) + 4, 0, 


(MESSAGE_VECTOR) / 4) + 1, 


1$: 


2$: 


ereee Dh, Fm =-- input services 
! fg era. -RECORD_NUMBER] GTRU 0 
1 EN ETURN PSM$_EOF; 
sor 1 
68 1 
276 : rene fo) he» ase age BTS ba to a temporary vector 
si) ' Tene’ t = 0; 
Ae 1 ens HT SCB_SIZE_ (MESSAGE_VECTOR) 
274 1 CATION (TEMP) = 8, TEMP [2)); 
$2 : 
278 \ Convert the message codes to text and return. it as the record read 
79 12 2 EXPAND CONDITION YEE SOR (.SCB, (.SCB_SIZE 
280 12 2 TEMP, .FUNC_BES 7% a 
281 12 2 
282 12 2 SS$_NORMAL 
283 12 2 
284 12 1 END; 


Cr ELE SORT EON Save R2,R3,R4,R5,R6,~ ; 


#40, SP 
@FUNCTION, #5 


#PSM$_FUNNOTSUP, RO 


@SMB hte S¢B 
e06(Sce 


MESSAGE 
B56 (eE ) 

#PSM$_EOF, RO 

(MESSAGE), TEMP 

TEMP+4 

SCB, R7 

204iR7), RO 

RO, 4(R1), #0, #32, TEMP+8 
FUNC_DESC 

204(R7), RO 

#4, RO 

1(RO) 

SCB 

#4, EXPAND_CONDITION_VECTOR 
#1. RO 


9 
* (5). 
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INPUT 
v04-000 


; Routine Size: 


Print Symbiont == input services 


FILE INFORMATION 
100 bytes, 


Routine Base: 


CODE + 0078 


iis 


3 
Sep 
Sep 
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Print Symbiont -- input services 16-Sep-1984 02:16:58 VAX-11 Bliss-32 V4.0-742 Page 11 
ILE PROCESS 14-Sep-1984 5:48:38 DISKSVMSMASTER: CPRTSMB. SRCJINPUT.B32: 1" (6) 
28 ZSBTTL 'FILE_PROCESS'. 
$3 : Functional Description: ai th ; 
0 This is the main file processing routine. It is responsible 
31 for opening, reading, positioning, and closing the main input 
; file. It also determines carriage control type. 
3 Formal Parameters: 
: STANDARD INPUT ROUTINE CALLING INTERFACE 
3 Implicit Inputs: 
; none 


Wwronororororofeoronononor) 
OOOOOOOOOOOOMO 
—OOONOUSWN OOO 


302 


Implicit Outputs: 
none 


Returned Value: 
non 


Side Effects: 
non 


GLOBAL ROUTINE PSMSMAIN_INPUT ( 
SMB_ CONTEXT : REF SLONGWORD, 


WNAWANAWNAAA NANA NAN ANAANNNAAANANNAWW 


BEAM ANNAN PI RINININNNNIDN 2 2 OO Oe eS SO 
MO OOWO EWN —O0OGNOUE WN “OOONOUS WHO” 


USER_CONTEXT : REF VECTOR, 
FUNCTION : REF $SLONGWORD, 
FUNC_DESC : REF VECTOR, 
FUNC_ARG : REF VECTOR 
BEGIN ‘i 
LOCAL 
RAB : REF $BBLOCK, 
ScB : REF $BBLOCK 


Locate the SCB and RAB blocks 


SCB = .SMB_CONTEXTC); 
RAB = .SCBEPSM$A_RAB); 


SOODWNA NALS WN O ODNAUES WN HO OONOUES WRC OONOUE Wr 


Case on function code 
SELECTONEU -FUNCTIONC) OF 


CPSMSK READ: 
RABLRABSB_RAC] = 0; 
ScET (RAB=.RAB, SUC=READ_FILE_AST, ERR=READ_FILE_ERR); 
CPSHSK GET_KEY): 
FUNC_DESCCSIZE] 


FUNC-DESCLADDRJ 
RETURN SS$_NORMAL; 
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INPUT Print Symbiont == input services 16-Sep-1984 02:16: V4.0-742 Page 12 
v04=000 FILE. PROCESS er ee= 1 3pe 45:88; Mm SCPRTSMB.SRCJINPUT.B32: 1° (6) v04- 
> 343 1285 END; pF 
> 344 1286 3 fz 
3 $2 : tf CPSMS$K Mais TASK]: 3 g 
; 347 1289 3 IF NOT ~ITEM_PRESENT_ (FILE_IDENTIF ICATION) ; f 
; 348 1290 THEN 3 £ 
; 349 1291 «3 RETURN PSM$_FUNNOTSUP; a 
; 350 1298 3 IF .RAB EQL 0 | 
s 351 1293 3 THE 
s S52 133¢ 4 BEGIN 
; 59 1295 4 LOCAL RMS_PTR 
; 354 1296 4 LITERAL RRS osize 2 
3 6399 1297 4& de 45 
; 356 1298 4 AMSCB ; 
» Sor 194 4 RABSC “BLN + 
s 338 1300 4 XABSC_DATLEN + 
; 359 1301 4 XABSC_FHCLEN + 
: 360 1302 4 XABSC_PROLEN ; 
; 56) 1303 4 
; 362 1304 4 LIBSGET_VM (UPLIT (RMS_SI et RMS_PTR); 
; 363 1305 4 CHSFILL” (0, RMS SIZE, RM S_P TR); 
: 364 1306 4 
s 365 1307 4 a at pea FAB] = 
; 366 1308 4 RMS_PTR = .RMS_ PTR’ ; spapse BLN; 
: 367 1309 4 
; 368 1310 4 A Sid ee NAM] = | 
: 369 1311 4 S_PTR = .RMS_ PTR. ; saansé BLN; 
; 370 1312 4 
; 371 1313 4 RAB 
s se 1314 4 SCBLPSASA. saat = 
s 375 1315 4 RMS_PTR = .RMS_ PTR. “ sahpsé BLN; 
3; 374 1316 4 
s 375 1317 4 SCOR SRA XABDAT] = .RMS_P 
; 376 1318 4 RMS_PTR = .RMS_PTR + Kaas.  DATLEN: 
: ore 1319 4 
; 378 1320 4 SCOCPSRSA_ XABFHC) = .RMS_P 
s 379 1321 4 RMS_PTR = .RMS_PTR + Taase. TRACLEN: 
; 380 1322 4 
; 381 1323 4 ase eRe XABPRO]) = 
: 358 135¢ : «RMS_PTR + Haase. "PROLEN: 
; «64384 1326 4 1 tesser VM (UPLIT (PSM$K DEFBUFSIZ), RABCRABSL_UBF J); ; Ro 
: 385 1327 4 RABCRAB$SW_USZ] = PSMSK_DEFBUFSIZ; 
; 386 1328 ; END; 
s 387 1329 
; 388 1330 3 SCHEDULE_USER_LEVEL (.SCB, RESUME, .SMB_CONTEXTCJ, OPEN_FILE, 5, 
; $60 133! 3 . SMB_C CONTEXTCI, .USER CONTEXT, -FUNTTION, FUNC bese, FUNC ARG); 
; 391 1338 : ! We have initiated but not completed an OPEN function -- the 
; tye 1334 3 i current 7" mbiont does not allow returning PENDING so we reach 
; $07 139? ; into the SCB and set it manually. 
3 $00 1330 ; SCBLPSMSL_SERVICE_STATUS) = PSM$_PENDING; 
; 397 1339 RETURN SS$_NORMAL; 
; 398 i? 9 § END; 
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NPUT Print Symbiont -- input services 16-Sep-1984 02:16:5 VAX-11 Bliss=-32 V4.0-742 Page 14 
04-000 FILE_PROCESS 1o-3e8-1 382 1 48:38 DISKSVMSMAS ER: CPRISMB. SRCJINPUT.B32:1°> (6) 
06 51 D1 00042 1$ CMPL = R1, #6 : 1280 
OF if} 004 BNEQ 2% : 
50 10 AC 00 0004 MOVL § FUNC_DESC, RO : 1282 
60 06 DO 00048 MOVL #6, TRO) : 
04 Ad 10 =A 3 O4E MOVAB 16(R7), 4(RO) : 1283 
0004 31 0005 BRWw BS : 1284 
10 51 D1 00056 2$ CMPL ~=soaR1, #16 + 1287 
03 13 00059 BEQL © 3$ : 
0096 31 00058 BRW 6$ : | 
03 0182 6 05 £0 0005¢ 3$ BBS #5, 434(SC(B), 4$ + 1289 
0104 31 00064 BRW 11§ : 
57 D5 00067 4$ TSTL RAB + 1292 
64 12 00069 BNEQ 5$ : 
5E DD 0006B PUSHL SP + 1304 
88 AF 9F Q006D PUSHAB P.AAB Z 
6A 02 FB 00070 CALLS #2, LIBSGET_VM : 
O1A4 BF 00 6E - 44 2c BOOT mMovVCS #0, (SP), #0, #420, @RMS_PTR : 1305. 
0248 (6 6— pO 0007C¢ MOVL. RMS_PTR, 584(SCB) : 130 
6E 00000050 8F CO 00081 ADDL2 #807 RMS_PT : 130 
024c 66 6E DO 00088 MOVL. _RMS_PTR,~588(SCB) + 131 
6£ 00000060 & CO 0008D ADDL2 #967 RMS_PTR + 131 
57 6E DO 00094 MOVL §_RMS_PTR, RAB + 131 
0250 6 6E 00 00097 MOVL. RMS"PTR, 592(SCB) + 131 
6E 00000044 8F CO 0009C ADDL2 #687 RMS_PTR : 131 
0254 C6 6—E DO 000A3 MOVL RMS_PTR, 596(SCB) 3; 131 
6E 2C CO 000A8 ADDL2 #447 RMS_PTR : 131 
0258 C6 6E DO O00AB MOVL _RMS_PTR,~600(SCB) + 132 
6E 2¢ CO 60080 ADDL2 #447 RMS_PT : 132 
025C¢ C6 6— DO 00063 MOVL RMS_PTR, 604(SCB) 3: 132 
6E 00000058 8F CO 00088 ADDL2 #887 RM : 132 
4 AZ? 9F OOOBF PUSHAB 36(RAB) : 132 
FF36 CF 9F 000C2 PUSHAB P.AAC ; 
6A 02 FB 000C6 CALLS #2, LIBSGET_VM ; 
20 ~A7 0200 8F BO 000C9 MOVW #512, 32(RAB) : 132 
7E 10 AC 7D OOOCF S$: MOVQ FUNC_DESC, -(SP) : 133 
59 DD 00003 PUSHL  R9 ; 
08 AC DD 00005 PUSHL USER_CONTEXT ; 
58 DD 00008 PUSHL RB ; 
05 DD OOODA PUSHL #5 : 1330 
0000v CF 9F O0ODC PUSHAB OPEN_FILE ; | 
58 DD 000E0 PUSHL ; 
0000v CF 9F OO0E2 PUSHAB RESUME : 
56 DD O00E6 PUSHL SC : 
0000v CF OA FB OO0E CALLS #10, SCHEDULE_USER_LEVEL : 
0220 (6 5B DO OO0ED MOVL R11, 544(SCB) : 1337 
36 611 000F2 BRB 8$ : 1339 
07 51 D1 O00F4 6$: CMPL RI, #7 + 1342. 
21 12 000F7 BNEQ 7$ : 
50 10 AC DO 000F9 MOVL. FUNC_DESC, RO + 1344 
10 a7 04 8B0 06 é S00F MOVC3 #6, @4(RO), 16(RAB) ; 
1E 02 90 0010 MOVB #2, 30(RABS > 1345 
QO00v CF 9F 90107 PUSHAB READ_FILE_AST > 1346 
0000v cf 9F 0010B PUSHAB READ"FILE~ERR ; 
7 DD 00108 PUSHL RA ; 
000000006 00 03 FB 00111 CALLS #3, SYSSFIND ; 
59 11 00118 BRB 12§ : 1271 


| 
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INPUT Print Symbiont == input services 6 Sep-1984 02:16:5 VAX=-11 Bliss-32 V4.0-742 15 INPU 
v04-000 FILE. PROCESS 14- ~3ep-19 41 18: 8 DISKSVMSMASTER: CPRTSMB. SRCJINPUT. B3264 * 6). v04- 
04 51 D1 OO11A 7$ CMPL soRT, #4 : 1349 ; 7? 
OF 12 0011D BNEQ 9$ : ‘ee 
6 DD oii PUSHL SCB : 1352 a | 
OOvOV CF Qf FB 00121 CALLS #1, CARRIAGE_CONTROL_TYPE : ee 
14 Bf 0 Be 8) 6 MOVL RO, @FUN : $ £ 
0 01 DO O012A 8S MOVL #1. RO + 1354 ; f 
02 51 D1 OO12E 9$ CMPL RI, #2 : 1357 OS 
20 12 00131 BNEQ «108 : ee 
7E 10 AC 7D 00133 MOVO §FUNC_DESC, =(SP) : 1359 oe 
59 DD 00137 PUSHL  R9 : : 7 
08 a DD Bt 9 PUSHL USER. CONTEXT : Fs 
58 DD 0013C¢ PUSHL RB : ; 7 
05 DD 0013E PUSHL #5 : 1358 3; 2 
0000v CF 9F 00140 PUSHAB CLOSE_FILE ; .-¢ 
58 DD 00144 PUSHL RB : me 
O0000v CF 9F 00146 PUSHAB RESUME : eS 
56 DD OO14A PUSHL : ; 7 
0000v CF OA FB 0014C CALLS #10, SCHEDULE_USER_LEVEL ; ; 2? 
20 11 00151 BRB les : 5% 
08 51 D1 00153 108: CMPL #8 + 1361 ; 7 
13 12 00156 BNEQ me : | . 2 
0000v CF 9F 00158 PUSHAB READ_FILE_AST > 1362. 3; 7 
OCOOV CF 9F 0015¢ PUSHAB READ-FILE~ERR : | ee 
57 DD 00160 PUSHL R : oP 
000000006 00 03 FB 00162 CALLS #3, SYSSREWIND : | ae 
08 11 00169 BRB 12$ : a? 
50 000000006 1 8F DO 00168 11$: MOVL § #PSM$_FUNNOTSUP, RO : 1365) oe 
04 00172 RET : ; 7 
50 5B DO 00173 128:  MOVL R11, RO > 1371, ; 8 
04 00176 RET : : H 
; Routine Size: 375 bytes, Routine Base: CODE + O0E4 : H 
: 8 
: 8 
: 8 
: 8 
: 8 
: 8 
: 8 
: 8 
: 8 


H 3 

PuT Print syaetont -- input services 1$=300" 138% 06 1g 38 VAX-11 Bliss-32 V4.0-742 Pa age 16 
v04-000 FILE_SETUP 14-Sep-1984 5 DISKSVMSMASTER: CPRTSMB.SRCJINPUT.B32;1 (7) 
; 431 1 if 1 ZSBITL ‘FILE_SETUP' 
s 4 ¢ 137 1 ! Functional Description: 
; 43 1374 1 Queues any file setup modules for insertion in the 
> 434 1375 1 data stream. 
>; «435 1376 1! 
; 436 1377 1 | Formal Parameters: 
; 437 1378 1 | STANDARD INPUT ROUTINE CALLING INTERFACE 
> 438 1328 1: - 
: 439 1380 1 | Implicit Inputs: 
; 440 1381 1: none 
> 441 1386 1: 
; «44 138 1} Implicit Outputs: 
: 464 1384 1: none 
> 444 1385 1! 
: 445 1386 1! Returned Value: 
: 446 1387 1! non 
: 467 1388 1! 
; 448 1389 1! Side Effects: 
>; 449 1390 1 non 
; 450 1391 1 !== 
> 451 1396 1 GLOBAL ROUTINE Poner ILE SETUP ( 
s 652 1393 1 SMB_ CONTEXT : REF SLONGWORD, 
; 453 1394 1 USER_CONTEXT : REF VECTOR, 
: 454 1395 1 FUNCTION : REF SLONGWORD, 
; 455 1396 (1 FUNC_DESC : REF VECTOR, 
; 456 1397 1 FUNC_ARG : REF VECTOR 
: 6457 1398 1 ds 
; 458 1399 2 BEGIN 
; 459 1400 2 
; 460 1401 2 LOCAL 
: 461 1402 2 ScB : REF $BBLOCK 
; 462 1403 2 ; 
: 463 1404 2 
: 464 1405 2 
Z rei res § If this is the open call then queue the file_setup_modules, if any/ 
; 467 1408 2 IF .FUNCTIONC) EQL PSM$K_OPEN 
: 468 1409 ¢ THEN 
; 469 1410 
; 670 1411 3 SCB = .SMB_CONTEXT(C); 
s 671 1412 3 PSMSINCLUDE CRODULES (SCB, SCBCPSM$Q_FILE_SETUP_MODULES]); 
; 472 1413 2 END; 
: 473 1414 2 
: 6764 1415 § 
s 4675 1416 ! No functions are supported 
; 476 1417 2 i 
; 477 1418 2 PSMS_ FUNNOTSUP 
; 478 1419 2 
; 479 1420 1 END; 


0000 00000 ENTRY PSMSFILE_SETUP, Save nothing : 1392 
5E 04 ¢2 BR ORE SUBL2 #4, SP : 
04 0c BC Dt 0000 CMPL @FUNCTION, #4 > 1408. 
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INPUT 
v04-000 


; Routine Size: 
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FILE_SETUP 
6E 04 ae 
7E 6E 0000006C Bf 
046 =A 


41 byt 


000000006 00 g 
‘ 000000006 8F 
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ADDL3 Sc 


VAX=11 Bliss-32 V4.0-742 
DISK KSVMSM TER: CPRTSMB. SRCJINPUT.B32; 


CONTEXT, sfs 
S(B, -(SP) 


PSM$ INCLUDE mes 


MOVL PPSMs FUNNOT SUP; 
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13 3 
Print eyyp 3" -- input services 6-Sep- 1384 0g: 19:38 VAX-11 Bliss-32 V4.0-742 Pa age 18 
FILE_SETU at > 984 70 DISKSVMSMASTER: CPRTSMB.SRCJINPUT.B32;1 (8) 
> 481 1421 1 &SBTTL ‘FILE_SETUP_2' 
; 48 14 § 1 ! Functional Description: 
: 48 14 1/ Outputs a single form feed to insure that we are at top 
; 484 14246 1! of form before id tag to print the file. If we are 
>; 485 1425 1! already at top of form the condition vertical. tornct effector 
; oe8 1¢ § ' } logic of the symbiont formatter will discard it. 
; 488 1428 1 ! Formal Parameters: 
$ ret 1? 4 : } STANDARD INPUT ROUTINE CALLING INTERFACE 
>; 491 1431 1 3! Implicit Inputs: 
; 49 14 ¢ ss none 
; 49 14 1 ! 
; 494 1434 1°! Implicit Outputs: 
; 495 1455 1! none 
; 496 1436 1! 
; 497 1437 1 ! Returned Value: 
> 498 1438 1! non 
: 499 47 fy 
; 500 1440-1! Side Effects: 
; $01 1441 1! non 
; br | 1 ine 
; 1443 1 GLOBAL ROUTINE PSMsF ILE _SETUP_2 ( 
> 504 1444 1 SMB_CONTEXT : REF SLONGWORD, 
; 505 1445 1 USER CONTEXT : REF VECTOR, 
; 506 1446 1 NCTION REF SEONGUORD, 
: 507 1447 1 UNE DESC : REF VECTOR, 
; 508 1448 1 FUNC “ARG : REF VECTOR 
; 509 1449 1 ) 
; 510 1450 2 BEGIN 
s S11 Hb 2 | 
. ‘Due 14 ¢ 2 BUILTIN AP; 
3 S15 1453 2 
; 514 1454 2 
s. 333 1455 2 ! Call the form feed routine passing the argument List 
; 516 1456 2! 
s SI7 1457 2 CALLG (. AP, FORM_FEED) 
s 518 1458 2 | 
; 39 1459 1 END; 
0000 00000 -ENTRY 5% te SETUP_2, Save nothing : 1443 
0000v CF 6C FA 00002 CALLG (AP), FORM_FEEB 3: 1457 
04 00007 RET 3: 1459 
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SETUP, Save nothing 
7 RO 


@SMB_CONTEXT, SCB 

#1245 SCB, -(SP) 

#2, PSMSINCLUDE_MODULES 
#PSM$_FUNNOTSUP 


@FUNCTION, #4 
SCB 


#4, SP 
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yporens =-- input services 


ZSBTTL ‘JOB_RESET' ‘ 
' Functional Description: 
Queues any job 
Formal Parameters: 
Implicit Inputs: 
none 


Implicit Outputs: 
none 


Returned Value: 
non 


Side Effects: 
non 


GLOBAL ROUTINE PSM$JOB_RESET ( 
5MB_CONTEXT : 
USER_CONTEXT : RE 
FUNCTION 
FUNC_DESC : RE 


FUNC ARG : REF VECTOR’ 


BEGIN 


LOCAL 
SCB : REF $BBLOCK 


reset modules for inclusion 


STANDARD INPUT ROUTINE CALLING INTERFACE 


REF $SLONGWORD, 
F VECTOR, 

: REF SLONGWORD, 
F VECTOR 


1984 02:16:58 VAX-11 Bliss-32 V4.0- 
138 05:16:38 DISKSVMSMASTER: CPRTSM 


! On the open call queue the job_reset_modueles, if any, for inclusion 


in the input data stream 
IF .FUNCTIONC) EQL PSMSK_OPEN 
THEN 


GIN 
SCB = .SMB_CONTEXTCI; 
PSASINCLUDE _RODULES (SCB, SCBCPSM$Q_JOB_RESET_MODULES]); 


Always return unsupported 
PSM$_FUNNOTSUP 
END; 


Bsn 108 RESET. Save nothing 
@FUNCTION, #4 
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2) 
RCJINPUT.B32;1 ais 
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04 00028 
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50 000000006 8F 1$: MOVL #PSM$_FUNNOTSUP, RO 
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ZSBTTL 'JOB_SETUP* 
' Functional besgription: 

Lled once at start of task, it checks to see if this is 
the first time it is being called and, if so, issues a form 
feed and any job_reset_modules that are specified. 


Formal Parameters: 
STANDARD INPUT ROUTINE CALLING INTERFACE 


Implicit Inputs: 
none 

Implicit Outputs: 
none 

Returned Value: 
non 


Side Effects: 
non 


GLOBAL ROUTINE PSM$JOB_ ae 
SMB_CONTEXT te ota a 


USER CONTEXT 
NCTION : REF SLONGWORD, 
FUNG DESC : REF VECTOR, 
FUNC ARG : REF VECTOR 
BEGIN 
LOCAL 
SCB : REF $BBLOCK 


If opening establish the carriage control as imbedded 
IF_.FUNCTIONC] EQL PSM$K_OPEN 
THEN 


BEGIN 
FUNC_ARGCO) = PSMSK_ CC_INTERNAL; 
Ae SS$_NORMAL ; 


If this is the first read and this is the first time this routine 
! has been opened for input, then return a form feed and any job_reset_modules. 


‘ 
' 
' 
if .FUNCTIONC) EQL PSM$K_READ 
THEN 


NTEXTCJ 
PPSASL Ree er ome NUMBER] GTRU 0 THEN RETURN PSM$_EOF; 
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3 
; ITcs TSC A$V_JOB_INIT TALIZE ZEJ) 
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WR 0 ODO NOAUEWN (OOO NOAUE WIN — OO ONAU EWN 0 OONOUSWWN (OO CONAUS WN —OVOOn 


-PESCESIZE] = 2; 
DESCCADDR} = UPLIT BYTE (PSMS$K_CHAR_FF, PSM$SK_CHAR_CR); 


Routine Size: 


Print Symbiont == input services 1b. Sep-1984 VAX-11 Bliss=-32 V4.0=-742 
JOB. SETUP 14- sen-1984 5: 48: 8 DISKSVMSMASTER:CPRTSMB.SRCJINPUT. B32, 79 we ; 
1644 4 PSMSINCLUDE ROpULes (SCB, SCBCPSM$Q_JOB_RESET_MODULES)); 
1645 4 RETURN SS$_NOR 
1646 3 END; 
1647 § END; 
1648 
1649 g PSM$_FUNNOTSUP 
1650 
1651 1 END; 
OD OC O02E6 P.AAD: .BYTE 12, 13 : 
0000 00000 ENTRY psnsi08. SETUP, Save nothing ; 1608 
SE 04 C2 00002 SUBL2 : | 
04 0c BC Di 00005 CMPL SFUNCTION, #4 : 1623 
06 12 00009 BNEQ : 
14 BC 01 pO 0000B MOVL #1, @FUNC_ARG 3 1626) 
3A 11 0O00F BEB > 1627 | 
05 0C BC D1 00011 1$ CMPL @FUNCTION, #5 3 1634) 
38 12 00015 BNEQ 4 : 
6E 04 BC DO 00017 MOVL aSMB_ CONTEXT, SCB + 1637) 
51 6— 00 00018 MOVL “R : 1638) 
026C C1 D5 OOOIE TSTL e5BtRT) : 
08 135 00022 BEQL 2$ é 
50 00000000G 8F D0 00024 MOVL #PSM$_EOF, RO 3 | 
04 00028 RET 3 
1E OC Al 03 E2 0002C 2$ BBSS #3, 12(R1), 4$ > 1639) 
50 10 AC 00 00031 MOVL FUNC_DESC, RO 3 1642) 
60 02 dO 00035 MOVL #2, TRO) 3 
04 AO C3. AF 9E 00038 MOVAB  P.AAD 4cRO? + 1643 | 
00B0 C1 9F 0003D PUSHAB W7OCR {) + 1644 | 
04 AE 9F 00041 PUSHAB : | 
000000006 00 02 FB 00044 CALLS 35° PSMSINCLUDE_MODULES : 
50 01 DO 00048 3$: MOVL #1, RO + 1645 | 
04 0004E RET 3 
50 00000000G 8F 00 OOO4F 4$ MOVL #PSM$_FUNNOTSUP, RO ; 1651) 
04 00056 RET : 


87 bytes, Routine Base: CODE + 02E8 
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v04-000 LIBRARY_INPUT 14-Sep-1984 12:55:0 DISKSVMSMASTER: CPRTSMB.SRCJINPUT. B32: 79 fa § 

: 717 1658 1 SSBTTL 'LIBRARY_INPUT' ‘ 
; 718 16535 1 ! Functional description: : 
; #719 1654 1! Opens. reads, and closes the device control roreer ‘ 
; 720 1655 1 | is routine returns specified modules from the Library : 
: 721 1656 1! ines the input data stream. ° 
; ts 1657 1 : 
; © 1928 1 | Formal Parameters: ‘ 
: 724 165 1} STANDARD INPUT ROUTINE CALLING INTERFACE ‘ 
3: feo 1660 1! —— ‘ 
; £s6 1661 1! Implicit Inputs: ‘ 
> fe 1996 1! none ‘ 
; £s8 1663 1! 7. ’ 
; ey 1664 1 ! Implicit Outputs: : 
; 730 1665 1! none | : 
: 731 1666 1! : 
; te 1667 1 ! Returned Value: : 
3 6fe9 1668 1! none ‘ 
: 734 1669 1! ; : 
3 go 1670 1 ! Side Effects: : 
; 73 1671 1! non : 
Bee 1672 1 !-- : 
; ts 1673 1 GLOBAL ROUTINE 1 ata INPUT ( : 
,; i 1674 1 SMB_ CONTEXT REF SLONGWORD, : 
: 740 1675 1 yste CONTEXT : REF VECTOR, ‘ 
3 741 1676 1 NCTION : REF SLONGWORD, . 
3; 742 1677 1 FUNC DESC : REF VECTOR, : 
: 743 1678 1 FUNC_ARG : REF VECTOR ; 
> 744 1679 1 = ‘ 
3s 745 1680 2 BEGIN : 
: 746 1681 2 ‘ 
3: 747 1682 2 3 
: 748 1683 2 SELECTONEU .FUNCTIONC) OF ; 
: 749 1684 2 SET : 
; 750 1685 2 : 
ee) 1686 2 : 
; 2 1687 2 ! If this is a open, read, or close then schedule it for service at ; 
; eee 1o88 § non=-ast level (since the Librarian does not provide an AST interface) | : 
, ras 1690 2 CPSMSK READ, PSMSK_OPEN, PSM$K_CLOSE): : 
s 6 1691 3 BEGIN | 3 
s 7 1692 3 LOCAL SCB_: REF renppioe 3 
; re 1693 3 SCB = .SMB_CONTEXTL : 
; 39 1694 3 SCHEDULE E USER LEVEL (.SCB, RESUME, Rit CONTEXTCJ, READ_LIBRARY -USER, 5. : 
; 760 1695 3 NTEXTCJ, .USER_CONTEXT, .FUNCTION, .FUNC_DESC, .FUNC7ARG); : 
: 761 1696 3 RETURN PSNS. PENDING; : 
: 762 1697 2 END; : 
; 763 1698 2 3 
: 764 1699 2 COTHERWISE): : 
; 765 1700 2 RETURN PSM$_FUNNOTSUP; : 
; 766 1701 2 : 
: 767 1708 2 TES; : 
; 768 1705 2 : 
3; 769 1704 1 END; : 
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NPUT 

04-000 PAGE _SETU 
771 1705 1 ZSBTTL ‘PAGE_SETUP' 
ore 1708 1 ' Functional Description: 
77 1707 1! Queues any page setup modules for inclusion in the input 
774 1708 1! data stream. 
775 1709 1! 
776 1710 1 ! Formal Parameters: 
777 711 #1! STANDARD INPUT ROUTINE CALLING INTERFACE 
778 ay 7% pe 
779 171 1 ! Implicit Inputs: 
780 1714 1! none 
781 i713 9 $ : 
ree 1716 1 ! Implicit Outputs: 
78 1717 1! none 
784 1718 1! 
785 1719 1°! Returned Value: 
786 1720 1! non 
787 1721 1! 
788 \7s¢ 1! Side Effects: 
789 172 1! non 
790 1724 1 !=- 
791 1725 1 GLOBAL ROUTINE PSMSPAGE SETUP ( 
792 1726 1 SMB_CONTEXT REF Peers, 
793 1727 1 USER_CONTEXT : REF VECTO 
794 1728 1 FUNCTION : REF SEONCWORD, 
795 1729 «1 UNC DESC : REF VECTOR, 
796 1730 1 FU NC “ARG : REF VECTOR’ 
797 1731 «1 
798 1738 2 BEGIN 
799 1733 2 
800 1734 2 LOCAL 
801 1735 2 scB : REF S$BBLOCK 
80 1736 2 3 
80 1737 2 
804 1738 2 IF .FUNCTIONC) EQL PSM$K_OPEN 
805 1739 2 THEN 
806 1740 3 BEGIN 
807 1741 3 SCB = .SMB_CONTEXTC); 
808 1742 3 PSMSINCLUDE CMODUCES (ScB, SCBCPSM$Q_PAGE_SETUP_MODULES]); 
809 1743 2 END; 
810 1744 2 
811 1745 2 PSM$_FUNNOTSUP 
812 1746 2 
8135 1747 1 END; 
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000000006 00 O02 FB OOO1A 
50 000000006 8F DO 00021 1%: 


+ ey SETUP, Save nothing 
SFUNCTION, a4 
1$ 


@SMB_CONTEXT, SCB 
sc S(B, -(SP) 


PSMSINCLUDE_MODULES 
aPSMs> FUNNOTSUP* RO 
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act _CONTROL_TYPE = Returns the file carria 12: mets 1 1 98: 48: 8 DISKSVMSMASTER: CPR TSMB mB SRCJINPUT 832049" (185 


; 
o- 
S 
~~ U6} 
— 


Rsbetl *CARRIAGE_CONTROL_TYPE = Returns the file carriage control type’ 


i Functional Description: 
! Returns corr soge control t ak 
Fields of the RMS FAB and RAB “control blocks are inspected we one 


—_ ot 


implied, fortran, print, or internal. 
of the four carriage control types is assigned for the fil. 


i Formal Parameters: 
$cB - Address of the SCB 


NNN NNN 
PVSVIVSVSVSISISIVSIST EE SI 


: i Implicit Inputs: 
none 


Morororrrrror 


DONAUESWN (CO OODNOVUES WN ODONOUM 


: i Implicit Outputs: 


Prin 
CARR 
H 1748 1 
; 1749 «1 
; 1750 1 
: eh 1 
: 1 1 
: 1754 «1 
3 1755 #1 
3 1756 1 
; 1757 «#1 
3 1758 #1 
: 1759 «1 
3 1760 1 
; 1761 «1 
; ¢ 1786 1 none 
$ 176 1 
; 3 1764 «1 Returned Value: 
3 3 1765 (1 non 
3; 8S 1766 1 
; 3 1767 1 | Side Effects: 
3 3 1768 1 | none 
; 83 1769 1 !=- 
: 3 1770 1 ROUT INE CARRIAGE Se TYPE ( 
s 3 1771 #1 ScB REF SBBLOCK 
; 3 177 1 
; 840 1773 2 BEGIN 
; 6841 1774 2 BIND 
; «684 1775 2 FAB = .SCBCPSMS$A_FAB] : $BBLOCK; 
: «84 1776 2 
: 6844 1777 2 IF .FABCFABSV_CRI 
; «6845 1778 2 THEN 
: 846 1779 2 PSMS$K_CC_IMPLIED 
: 847 1780 2 
; 848 1781 2 IF .FABCFABSV_FTN) 
; 849 17ee 2 HEN 
; 850 1783 2 PSM$K_CC_FORTRAN 
; 851 1784 2 
; B26 1785 2 IF .FABCFABSV_PRN] 
; 8 1786 2 
: 854 1787 ? PSMSK_CC_PRINT 
> 855 1788 2 
; 856 1789 2 PSMSK_CC_INTERNAL 
; 857 1790 1 END; 


0000 00000 CARRIAGE_CONTROL_TYPE: 


-WORD Save “pate 3 1770. 

50 04 AC D0 00002 MOVL R : 1775 
50 0248 ¢O D0 00006 MOVL 84(RO), R 3 | 
04 1E AO 01 £1 000 BBC #1, BOCRON. 1$ : 1777) 
50 02 0 0001 MOVL #2, RO ; 
4 0001 RET : | 
04 1E AQ £9 00014 18: BLBC 30 RO), 28 : 1781. 

50 03 DO 00018 MOVL #3, RO : 


<— 
1c 


z 
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4 
INPUT Print Symbiont == input services 1b-se -1984 02:16:5 VAX-11 Bliss-32 V4.0-742 1 INPU 
v04=000 CARRIAGE _CONTROL_TYPE = Returns the file carria 14- 8op7198e 95:48:08  DISKSVMEMASTERSCPRT SM RCJINPUT. 93209 9°18) v04= 
04 18 RET é 
04 1E 88 0 E1 i 2$: BBC #2, gy RO). 3$ : 1785. 
5 4 B? MOVL a4, R é 
4 4 RET é 
50 01 00 00025 3$: MOVL #1, RO : 
04 00028 RET ; 1790. 
; Routine Size: 41 bytes, Routine Base: CODE + 0384 
| : Ro 


RE ESE ate TE ES een Eat ae Se Riess # a I ae ca 


K & 
INPUT Print Symbiont -- input services 16-Sep-1984 02:16:5 VAX-11 Bliss-32 V4.0-742 32 
v04- CLOSE FILE 1a-8ep-1984 05:10:38 DISKSVMSMASTER: CPRTSMB.SRCJINPUT. B32, 79 (18). 
; 859 1791 1 XSBTTL ‘CLOSE_FILE’ 
; 860 1738 1! Functional Bescription: 
3 beg 1032 : This subroutine handle file closing operations. 
; 86 1795 1 ! Formal Parameters: 
; 864 1738 1! STANDARD INPUT ROUTINE CALLING INTERFACE 
: 865 1797 1! 
; 86 1798 1°! Implicit Inputs: 
; 86 1799 1! none | 
; 868 1800 1! 
; 869 1801 1! Implicit Outputs: 
; 870 1906 1! none 
: 871 1803 1! 
; 1G 1806 1 ! Returned Value: | 
; 87 1805 1! non 
: 874 1806 1! 
; 875 1807 1 ! Side Effects: 
; 876 1808 1! none 
; 877 1809 1 !-- 
; 878 1810 1 ROUTINE CLOSE_FILE ( 
; 879 1811 «1 SMB_CONTEXT : REF SLONGWORD, 
; 880 \el¢ 1 USER_CONTEXT : REF VECTOR, 
; 881 181 1 FUNCTION : REF StONGUORD, 
; 882 1814 1 FUNC _DESC : REF VECTOR, 
; 883 1815 1 FUNC_ARG : REF VECTOR’ 
3; 6884 1816 1 ) = 
: 885 1817 2 BEGIN 
3; 886 1818 2 
; 887 1819 2 LOCAL 
; 888 1820 2 FAB : REF $BBLOCK, 
; 889 1821 2 RAB : REF $BBLOCK, | 
; 890 13c¢ 2 SCB : REF $BBLOCK, 
; 891 1823 2 STATUS_1 
3; 892 1824 2 3 
; 893 1825 2 
; 894 1826 2 SCB = .SMB_CONTEXTC); 
> 895 1827 2 FAB = .SCBEPSMSA_FABI; 
; 896 1828 2 RAB = SCBCPSMSA~ “RABI: 
; 897 1829 2 
; 898 1830 § IF .FABCFABSW_IFI] EQL 0 
: 899 1831 THEN 
; 900 1336 2 RETURN SS$_NORMAL ; 
3: 901 183 
: 90 1834 RABCRABSV_ASYJ = 0; 
; 90 1835 
: 904 1836 S$WAIT (RAB=.RAB); 
: 905 1837 ‘ | 
; 906 1838 STATUS_1 = S$CLOSE (FAB=.FAB); 
: 907 1839 
: 443 H+ IF NOT .STATUS_1 : 
; 910 Hb 9 etaed > ete a sce, PSM$_CLOSEIN, 1, SCBCPSM$Q_FILE_SPECIFICATION]), 
> 911 184 ABLFABSL_STSJ, .FABLFABSL_STVJ); 
: aig 1844 
: 91 1845 2 .STATUS_1 
; 914 1366 
; «915 184 1 END; 
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BRAR 


ZSBITL ‘CLOSE_LIBRARY' 
: Functional Bescription 


i 
' Formal Parameters: 


Implicit stacey 
Implicit ‘item 
ne 
Returned Value: 
n 


Side Effects: 


ROUTINE CLOSE_LIBRARY ( 
SMB_ CONTEXT 
USER_CONTEXT 
FUNCTION 
FUNC_DESC 


BEGIN 


LOCAL 
SCB : REF $BBLOCK, 
CLOSE_STATUS 


SCB = .SMB_CONTEXTC); 


- SCBCPSMSL_LIBRARY_INDEX] EQL 0 


RETURN SS$_NORMAL ; 


his subroutine closes 


the device control Library 


STANDARD INPUT ROUTINE CALLING INTERFACE 


: REF $LONGWORD, 
: REF VECTOR 

REF SLONcuéRD, 
FUNCZARG : REF VECTOR 


CLOSE_STATUS = LBRSCLOSE (SCBCPSM$L_LIBRARY_INDEX]); 


SCBCPSMSL_LIBRARY_INDEX] = 0; 
IF NOT .CLOSE_STATUS 
THEN 


PSMSSTORE ERRORS (.SCB, PSM 
SCBCPSM$Q_ LIBRARY ~SPECI 


- CLOSE _STATUS 
END; 


"eLose STATUS); 


001C 00000 CLOSE_LIBRARY: 
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LOCAL 
SCB : REF $BBLOCK 


BEGIN | 
FUNC_ARGLO) = PSM$K_CC_INTERNAL; 
RETURN SS$_NORMAL; 
END; 

IF .FUNCTIONC] NEQ PSMSK_READ 
RETURN PSM$_FUNNOTSUP; 

SCB = .SMB_CONTEXTL); 

IF .SCBCPSM$L_RECORD_NUMBER] GTRU 0 
RETURN PSM$_EOF; 


FUNC_DESCCSIZE) 
FUNC~DESCLADDRJ 


$S$_NORMAL 


Print Symbiont == input services 16-Sep-1984 02:16:5 VAX=11 Bliss-32 V4.0-742 Page 36 I NPI 
ORM_F + 14-Sep-1984 05:10:38 DISKSVMSMASTER: CPRTSMB. SRCJINPUT.B32: 1° (18) | VO04" 
89 XSBTTL "FORM_FEED' | Be 
90 ! Functional Description: : 3; 
44 This input routine returns a single form feed. : 1 
90 i Formal Parameters: i313 
4 STANDARD INPUT ROUTINE CALLING INTERFACE : 1 

0 i Implicit Inputs: : 13 
0 ! none a 
0 ! “eS hy 
0 ! Implicit Outputs: : 1; 
none : if 

i Returned Value: : 1 

| non : a 

i Side Effects: : 13 

| non 1 
ROUTINE FORM_FEED ( : 13 
SMB_CONTEXT : REF $SLONGWORD, Tb 

USER_CONTEXT : REF VECTOR, : iF 

FUNCTION : REF SLONGWORD, 5%: 

FUNC_DESC : REF VECTOR, HM 

FUNC~ARG : REF VECTOR : 1; 

BEGIN 3 

. 1 

at 

et 

, 41 

. 41 

at | 

* 41 

. 43 

at 

. 7 

“i 

tx 3 

° 41 

ai 


ase o88 ode 


as 04 08 


S 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
2 
2 
: 
2 IF .FUNCTIONC] EQL PSMSK_OPEN 
2 THEN 
3 
3 
3 
2 
2 
2 
2 
2 
2 
2 
2 
s 1 

: UPLIT BYTE (PSMSK_CHAR_FF, PSMSK_CHAR_CR); 
1 
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5 
INPUT Print Symbiont == i i - 
vO4~000 ae errs 1ES0or4986 OBU6:58 YAEL TABLLSHERE cP Sad!Bacaunrur.oscét®* 


OD OC OO46E P.AAE: .BYTE 12, 13 s 


0000 00600 FORM_FEED: 


WORD Save nothing ; 1918 ; 
04 0c BC D1 90002 CMPL = @FUNCTION, #4 + 1931. ; 
06 12 00006 BNEQ 1$ : | : 
16 BC 01 D0 00008 MOVL #1, @FUNC_ARG + 1934) ; 
2C 11 0000C BRB 4$ : 1933 | ; 
05 oc BC D4 OO0E 1$ CMPL FUNCTION, #5 + 1938 ; 
08 13 0001 BEQL 2$ : | ; 
50 000000006 8F D0 00014 MOVL § #PSM$_FUNNOTSUP, RO + 1940 ; 
04 00018 RET : : 
50 04 BC DO 0001C 2$ MOVL asMe CONTEXT, CB : 1942 ; 
026C ¢O D5 00020 TSTL  620(S8CB + 1944 ; 
08 13 00024 BEQL 6s 3$ ; ; 
50 000000006 BF D0 00026 MOVL § #PSM$_EOF, RO + 1946 | : 
04 00020 RET : ; 
50 10 AC dO Q00GE 38 NOVL FUNC DESC, RO 1948 | ; 
60 01 D0 00032 MOVL #1, : 
04 AO C6 AF 9E 00035 MOVAB P. hae 4cROD + 1949 
50 01 DO 0003A 4$ MOVL #1, RO + 1953 
04 0003D RET ; 


; Routine Size: 62 bytes, Routine Base: CODE + 0470 
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dD 5 

INPUT Print Symbiont == input services 16-Sep-1984 02:16:58 VAX=11 Bliss-32 V4.0-742 Page 38 
| v04=000 OPEN. FILE ease ea 1986 $S:e8:O8  DERKSVMGHASTERCCERT GMS ERCIINPUT.B3204°" (199 

; 1025 1954 1 XSBTTL 'OPEN_FILE’ 

: 1026 1955 1! Functional Description: 

3; 1027 1956 1! This routine handles RMS file open's. 

: 1028 1957 1! 

3 136? 1958 1 ! Formal Parameters: 

: 1030 1959 1! STANDARD INPUT ROUTINE CALLING INTERFACE 

: 1031 1960 1! De 

: 1038 1961 1 ! Implicit Inputs: 

; 103 1208 1! none 

3: 1034 196 1! 

3 1035 1964 1 ! Implicit Outputs: 

: 1036 1965 1! none 

: 1037 1966 1! 

; 1038 1967 1 ! Returned Value: 

; 1039 1968 1! non 

: 1040 1969 1! 

3 1041 1970 1! Side Effects: 

: 1042 1971 1! none 

: 1043 1972 1 !<= 

3: 1044 1975 1 ROUTINE OPEN_FILE ( 

3 1045 1974 1 SMB_CONTEXT : REF SLONGWORD, 

3; 1046 1975 (1 USER_CONTEXT : REF VECTOR, 

3; 1047 1976 1 FUNCTION : REF SLONGWORD, 

; 1048 1977 1 FUNC_DESC : REF VECTOR, 

3: 1049 1978 1 FUNC_ARG REF VECTOR 

: 1050 1979 1 = 

3; 1051 1980 2 BEGIN 

: 1052 1981 2 

: 1053 1982 2 LOCAL 

: 1054 1983 2 FAB REF $BBLOCK, 

; 1055 1984 2 N REF $BBLOCK, 

; 1056 1985 2 RAB REF $BBLOCK, 

: 1057 1986 2 SCB REF $BBLOCK 

; 1058 1987 2 ; 

3; 1059 1988 2 

; 1060 1989 2 SCB = .SMB_CONTEXTC); 

> 1061 1990 2 FAB = .SCBEPSMSA_FAB); 

> 1062 1991 2 RAB = .SCBCPSM$A_RAB); 

: 1063 1992 2 NAM = .SCBLPSM$A_NAM); 

: 1064 1993 2 

; 1065 P1994 2 SFAB_INIT ( ! Initialize FAB 

; 1066 P1995 2 FAB=.FAB, ! = address of uninitialized FAB 

3: 1067 P 1996 2 FOP=NAM, ' = open by device, fid, and did 

; 1068 P 1997 NAM=.NAM, ! = address of NAM block 

: 1069 P 1998 SHR=(DEL,GET,PUT,UPI) ! = allow full sharing 

; 1070 P 1999 XAB=. SCBEPSM$A_XABDATJ i = first XAB block 

3; 1071 2000 2 ds 

: 1072 2001 2 = ag 

: 1073 PP 4 SXABDAT_INIT ( ! Initialize date XAB 

3 1074 P 200 XAB=.SCBCPSM$A_XABDAT], ! = address of uninitialized XAB 

: 1075 P 2004 NXT=.SCBCPSM$A_XABF HC) ! = address of next XAB in chain 

3; 1076 005 dz ‘ 

3; 1077 00 oe ae Z 

; 1078 P 200 SXABFHC_INIT (¢ ! Initialize file header XAB 

; 1079 P 2008 XAB=.SCBCPSM$A_XABFHC], ! = address of uninitialized XAB 

: H+ 14 R sete NXT=.SCBCPSM$A_XABPROJ ! = address of next XAB in chain 
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INPUT t Symbiont -- input services 1b-s2p-1984 02:16:58 VAX-11 Bliss-32 V4.0-742 39 
v04-000 _F le 14-Sep-1984 5:48 08 DISKSVMSMASTER: CPRTSMB.SRCJINPUT. B32, ys * (13) 
; 108 
; 108 P S$XABPRO_INIT ( ! Initialize protection XAB 
: P — SCBCPSM$A_XABPROJ i = address of uninitialized XAB 


E poe sve gsi 
RABTRABS USZ); 

RAB sd tae “UBF: 

nitialize RAB 

-SMB_CONTEXTCI, symbiont context value 
AB address of FAB block 

multi block count 


I 
i = multi buffer count 
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access mode is sequential 

address of uninitialized RAB 

locate mode — 
user buffer size 

user buffer address 


vuvvuVvVVvVUUU 


UBF =. SAVE ADDR 


END; 
SNAM_INIT (NAM=.NAM) ; 


S 

] 

3 

3 

3 

3 

z 

2 

2 

§ 

2 RETURN_IF_ERROR__(PSMSREAD_ITEM_R ( 

2 SMB_CONTEXT 

2 UPLTT “SREMSGfx FILE_IDENTIFICATION), 

2 UPLIT WORD (NAMSS_DVI + NAM$S_FID + NAM$S _DID), 
‘ NAMLNAMS1 PVD S 
2 
2 | 
2 
2 | 
2 
3 
2 
2 
2 
; 
2 
2 
2 


Initialize NAM 


vuvwvV 


't! obsolete 
igi 


is iCHSCOPY. ¢ {.SCB SIZE crite IDENTIFICATION), .SCB_ADDR_ (FILE_IDENTIFICATION), 
0, 28, NAMCNAM$T_DVIJ); 


IF NOT SOPEN (FAB=.F AB) 
THEN 
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RETURN PSMSSTORE_ERRORS (.SCB, PSMS_OPENIN, 1, 

¢ SCBCPSM$Q_FICE_SPEC’ FICATION], .FABCFAB BSL/STS], .FABLCFABSL_STV]); 
; IF NOT $SCONNECT (RAB=.RAB) 

5 RETURN PSMS$STORE ERRORS (.SCB, PSM$_OPENIN, 1, 

: SCBCPSM$Q_FICE_SPECIF ICATION], TRABCRA ABSL_STSJ, -RABCRABSL_STY]); 
; Enable asychronous operations 

5 RABLRABSV_ASY) = 1; 
oe ! Set the valid fab bit for get_file_description 
88 SCBLPSMSV. FAB_VALID] = 
06 ! If record format is variable with fixed control 
3 -FABCFABSB_RFM) EQL FABSC_VFC 
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5 
_ INPUT Print Symbiont == input services 1e-se -1984 16:5 VAX-11 Bliss-32 V4.0-742 Page 41 
/¥04-000 OPEN. FICE 12-908- 1880 95 8 38 DISKSVMSMASTER: CPRISMB. SRCJINPUT.B32:1> (19) 
A 006C : 
6A 5813 F g0 9060 VW #32547 (R10) : 
9 : Ab ¢ 0 MOVZWL ; (RABS, SAVE_SIZE > 2018 
SA 4 a6 p 0076 VL (RAB) SAVE ADDR + 2019 
0044 8F 00 6e 00 C OO7A MOVCS #0, (SPS, #0,7#68, (RAB) + 2030 
6 4401 BF BO a082 MOVW #17609. (RAB) : 
04 A6 00010000 8F 00 0008 MOVL #65536. 4(RAB) : 
18 AG 04 BC DO 0008F MOVL § @SMB_CONTEXT, 24(RAB) : 
1E Ab 94 00094 CLRB 30(RAB) : 
20 Ab 59 BO 00097 MOVW  SAVE_SIZE, 32(RAB) : 
¢4 Ab SA D6 90098 MOVL SAVE ADDR, 36(RAB) : 
6 Ab 2002 BF BO O009F MOVW  #819%, 54(RAB) : 
3c 58 00 OO0AS MOVL FAB, 60(RAB) : 
0060 &8F 00 6E 00 2¢ 0009 MOVCS #0, (SP), #0, #96, (NAM) + 2033 
6B 6002 8F BO 00081 MOVW #24578, (NAM) : 
14 AB 9F 00086 PUSHAB 20(NAMS + 2039 
FF41 CF 9F 00089 PUSHAB P.AAG ; 
FF39 CF 9F O00BD PUSHAB  P.AAF : 
04 AC DD 000C1 PUSHL  SMB_CONTEXT : 
000000006 00 04 FB 000C4 CALLS #4, PSMSREAD_ITEM_R : 
5F 50 €9 000CB BLBC STATUS, 5$ : 
58 DD OOOCE PUSHL FAB + 2046 
000000006 00 01 FB 00000 CALLS #1, SYSSOPEN : 
06 50 £8 00007 BLBS : 
7E 08 A& 7D OOODA MOVO 8(FAB), -(SP) + 2049 
10 11 OOODE BRB 2$ ; 
56 DD OO0EO 1$: PUSHL RAB > 2051 
000000006 00 01 FB 000E2 CALLS #1, SYSSCONNECT : 
1A 50 £8 OO0E9 BLBS = RO, : 
7E 08 A6 7D OOOEC MOVQ 8 (RAB), -(SP) > 2054 
0098 C? 9OF OOOFO 2s: PUSHAB 152(SCB) : 
01 DD 000F4 PUSHL # ; 
0106109A 8F DD 0006 PUSHL #17174682 : 
57 DD O00FC PUSHL ; 
000000006 00 06 FB O00FE CALLS #6, PSMS$STORE_ERRORS ; 
04 0010 RET ; 
04 Ab 01 88 00106 3s: BISB2 #1, 4(RAB) > 2059 
10 AZ 10 88 OO10A BISB2 #16, 16(SCB) > 2063 
03 iF =AB O91 00105 CMPB. s«31(FAB), #3 : 2067 
16 12 0011 BNEQ 4$ ; 
02 3F = AB: sO91: «00114 CMPB sa 3( FAB), #2 : 2072 
19 12 00118 BNEQ 4$ ; 
2c Ab 0268 C7 9E OO11A MOVAB 616(R7), 44(RAB) > 2078 
05 1—E As 02 E0 00120 BBS #2, 30(FAB), 4$ + 208 
0124 (7 10 88 00125 BISB2 #16, 292(SCB) > 2085. 
50 01 DO OO12A 43: MOV #1, RO > 2090 | 
04 0012D 5$: RET : 


; Routine Size: 302 bytes, Routine Base: CODE + 0486 


— 
| 


} 
| 
} 
| 
| 


ad 
eS 
ic 


OPEN_LIBRARY 


ZSBTTL ‘OPEN_LIBRARY’ 
' Functicnal Description: 


Wee ses 


oO 
Oo 
—_ 
— 


Formal Parameters: 
Implicit Inputs: 
none 


Implicit Outputs: 
none 


Returned Value: 
non 


Side Effects: 
: non 
ROUTINE OPEN_LIBRARY ( 
SMB_CONTEXT : REF SLONGWORD, 


an non 


5 
OPEN_STATUS 


SCOCCOCOOOOOOOVOO@Owmw c@oco ANN ~ 
SS3sSz e+ 4 CD00 NNNNNNOOAO 


OPEN_STATUS = LBRSINI_CONTROL ( 
SCBCPSM$L_LIBRARY_INDEX]), 


ee a ee ed ee ed ed ed ed 


PROPROPOMOPOPOROPOPOPORENOPNUNPONINPYNPNDDD 4 2 St 9 2 2 Ss ss 


RIPPIN INIATPIPIAIPDNYINININININYNINININININININININININININININININININONYNUNIPIPONoNoNononononononoponopoponofponony 


ed aad ad ea a ca ec cc ec ee eee et ee eh eh cee ce cc ce el cl ec ca ce ec ec ee ce ce ce ce ce cl cel cel ec ch cael cl ee ea cel cel eh 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
r4 
2 
r4 
r4 
2 
2 
3 
§ SCB = .SMB_CONTEXTC); 
2 
2 
é 
: 


NOU EWR 0 OONOA UE WIND 0 OONOAUE WIN ( O OONOU EWR" OOODNOUFE LN O 


04 UPLIT (LBRS$C_READS, ' 
5 UPLIT (LBRSC~TYP_TXT) i 

0 . 

08 IF .OPEN_STATUS 

10 OPEN. STATUS = LBRSOPEN ( 

11 SCBCPSMSL_LIBRARY_INDEX) 
le SCBLPSM$Q~LIBRARY-SPECIF CATION), 
1 0° 
15 0; i 
16 Q°RES_LIBNAME i 
17 Q"RES~LIBNAME 5 i 
18 ELSE 

19 SCBCPSMSL_LIBRARY_INDEX] = 0; 


H § 
Print Symbiont -- input services 16-Sep-1984 16:5 VAX-11 Bliss-32 Vv4.0- 
, 14 g00n 138 95:10:38 DISKSVMSMASTER: CPRTSM 


his routine opens the device control Library. 


STANDARD INPUT ROUTINE CALLING INTERFACE 


USER CONTEXT |: REF VECTOR 
FUNCTION : REF $LONGWORD, 
FUNC_DESC : REF VECTOR, 
z FUNC ARG : REF VECTOR 
3 BEGIN 4 
1 LOCAL 
2 Q_RES_LIBNAME =: VECTOR (21 
3 T-RES-LIBNAME : VECTOR CBYTE, NAMSC_MAXRSSJ, 
4 : REF $BBLOCK, 


INIT_STAT_DESC_ (Q_RES_LIBNAME, NAMSC_MAXRSS, T_RES_LIBNAME); 


context longword 
open for read 
text Library 


context longword 
library name — 

no create options 

no default name 

no related file name 
resultant name buffer 
resultant name size 


«SRCJINPUT.B32 


$$$ = 


—ws 


i oe - 716: - 
zabiont input services 14. -Sep-1984 96 1g 5 eat 


42 
14-Sep-1984 :55:0 S$ 


@7 43 NP\ 
MB.SRCJINPUT. B32 79 * (20) 04: 


IF .OPEN_STATUS 
THEN 


BEGIN 
COPY_DX_DX_ (Q_RES_LIBNAME, SCBCP psmsa LIBRARY SPECIFICATION); 
OPEN N-STATUS = CBRS$ SE T_LOCATE (SCBCPSMSL_LIBRARY_INDEX]); 


IF NOT .OPEN_STATUS 
THEN 


TF SBBLOCK COPEN_STATUS, STS$V_FAC_NOJ EQL RMS$_FACILITY 
PSMS$STORE ERRORS (. s¢B 
Ce RSRET “angsty 
EO SMSSTORE ERRORS (.SCB. 
ae PSMS_OPENIN, 1, SCBCPSM$Q_LIBRARY_SPECIFICATION], .OPEN_STATUS); 
.OPEN_STATUS | 


cétPs SM$Q_LIBRARY_SPECIFICATION], .OPEN_STATUS, 


P.AAH: .LONG 1 ; 


00000001 0O05E4 P 
O5SE8 P.AAI: .LONG 4 3 


00000004 0 


007C 00000 OPEN_LIBRARY: 
WORD 


WO Save R2,R3,R4,R5,R6 : 2110) 
56 000000006 00 9€ 00002 MOVAB PSMSSTORE_ERRORS, R6 ; 
5E FEF8 CE 9E 00009 MOVAB <-264(SP), SP ; 
52 04 BC dO OO00E OVL W380 CONTEXT, SCB > 2126 | 
FB AD FF BF OA 0001¢ MOVZBL : 2128 | 
FC AD 6E 9E 0001 MOVAB RES _UTBNARE, X_DESC+4 : | 
DE AF 9F 0001B PUSHAB PIAA > 2133 
D7? = AF «OOF OO01E PUSHAB : 2132 | 
53 014 ce 9E 90021 MOVAB ReoCSCB). R3 > 2131 
53 DD 00026 PUSHL = R ; 
000000006 09 03 FB 909 8 CALLS : LORSINI CONTROL ; 
5 50 DO 0002F MOVL R0 N_ST TTY S : 
55 €9 000 é BLBC OPENS STA TATUS, > 2136) 
F8 AD OF 0003 PUSHAB Q_RES_ UT URAE : 2140. 
FB AD OF 00038 PUSHAB Q “RES“LIBNAME : 
7E 7C 00038 CLRQ  -TSP)~ F 
7E 04 00030 CLRL = = (SP) : 
00c0 c OF 0003F PUSHAB 192(SCB) : 
DD 00043 PUSHL R ; 
000000006 90 07 FB 0045 CALLS #7, LBRSOPEN ; | 
5 0 pO 0004¢ MOVL RO. OPEN_STATUS : 
0¢ 11 0004F BRB 23" > 2138. 
: D4 00051 1$: CLRL (R3) > 2147. 
2c 5 £9 00053 2$: BLBC OPEN_STATUS, 4$ > 2149 


INPUT Print Symbiont -- input services 16-Sep-1984 VAX-11 Bliss=-32 V4.0-742 44) INP\ 
v04-000 OPEN_LIBRARY 14- aati 6: 48: 38 DISKSVMSMAS STER: coRigna. SRCJINPUT. B32. 79 * (20). V04: 
F AD 9F 000 PUSHAB Q_RES_LIBNAME 3 2152) 

0068 oF ~ PUSHAB 192(STB) : _— 

000000006 90 FB 00050 CALLS #2, STRSCOPY_DX : 

4 DO 00064 MOVL RO, STAT us : 

at BD Ob0cA pies, StAtUs. 38 

000000006 00 01 FB 006 CALLS #1, LIBSSIGNAL : 

53 DD 00073 3$: PUSHL R3 : 2153. } 

000000006 99 1 FB 0007 CALLS #1, LBRSSET LOCATE : 

5 0 00 0007C MOVL RO, OPEN STATUS ; 

35 5 FS 0007F BLBS OPEN aStaus, 6$ ; 2156) 

54 00c0 C3 E 008¢ 4$: MOVAB 19 : 3162 

01 55 0c 10 ED 0087 CMPZV #16, o TT OPEN_STATUS, #1 ; 2159) 
000000006 00 QO FB 0008 CALLS #0, LBRSRET_RMSSTV : 2163) 

50 DD 0009 PUSHL RO : | } 

30 BB 00097 PUSHR #*M<R4,R5> ; 2162 | i 

01 DD 00099 PUSHL # : | } 

0106109A 8F DD 0009B PUSHL #17174682 : 

52 DD OO0A1 PUSHL : 

66 06 FB 000A3 CALLS #6, PSMSSTORE_ERRORS ; | 

OF 11 O00A6 BRB ; | 

30 BB OOOAB 5$: PUSHR #*M<R4,R5> t 2166. 

01 DD OOOAA PUSHL # : 

0106109A 8F DD OOOAC PUSHL  #17174682 : ' 

52 DD 00082 PUSHL §S : ‘ 

66 05 FB 000B4 CALLS #5, PSM$STORE_ERRORS : i 

50 55 DO 00087 68: MOVL § OPEN_STATUS, RO + 2171) 

04 OOOBA RET : 


; Routine Size: 187 bytes, Routine Base: CODE + OSEC | 


ms me 


Bete Pe Se Se Se Se Se Ge Se Se Se Ge Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Seas te Se Se Se Se Se Se Se sees Beteeas 
ms me 


ee et ae ss 4 4 SS SS SS — SH — SS SS SS SY SS an. ss ss ts ts ss Ls SH SS LY YS 


ee es a 


kK 5 
Prin zabtont -- input services 1o~se0- 138% 06:16:38 VAX-11 Bliss-32 V4.0-742 Page 45) 

04 OPEN RARY_MODULE 14-Sep-1984 :55:0 DISKSVMSMASTER: CPRTSMB.SRCJINPUT.B32;1 (21). 
> 1245 178 1 ZSBTTL ‘OPEN_LIBRARY MODULE' 
3: 1 ag 173 1°! Functional Description: 
3: 124 174 =«61:! $ routine opens a specific module in the device control 
: 1248 176 1! ibrary. 
3; 1249 176 1! 
; 1250 177 1! Formal Parameters: 
3 : 2) 178 : STANDARD INPUT ROUTINE CALLING INTERFACE 
3 1 2g 180 1! Implicit Inputs: 
> 1254 ola F none 
: 158 188 | i Implicit output 
; ! Implic utputs: 
; 1589 184 ze ‘ ! none 
$ 1528 185 1! 
3; 1259 156 1 ! Returned Value: 
: 1260 187 1! non 
: 1261 188 #1! 
: 1566 189 1! Side Effects: 
: 126 190 1! non 
3 1264 191 1 !e- 
3 1265 136 1 ROUTINE OPEN_LIBRARY_MODULE ( 
> 1266 193 1 SMB_ CONTEXT : REF $LONGWORD, 
: 1267 194 1 USER_CONTEXT REF VECTOR, 
; 1268 195 1 FUNCTION : REF SLONGWORD, 
: 1269 196 1 FUNC _DESC : REF VECTOR, 
3; 1270 2197 1 FUNC_ARG REF VECTOR 
; 1271 2198 1 = 
; 1s?¢ 2199 2 BEGIN 
: 127 2200 2 
3 1274 $50) 2 LOCAL 
: 1275 $06 2 OPEN_STATUS ° 
: 1276 22035 2 SCB : REF $SBBLOCK 
3: 1277 $$oe § : 
; 1278 205 
; 1279 2206 2 SCB = .SMB_CONTEXTC); | 
: 1280 2207 2 
: 1281 2208 2 OPEN_STATUS = LBRSLOOKUP_KEY ( : 
3; 1282 2209 2 SCBCPSM$L_LIBRARY_ INDEX), ! = Library context 
: 1283 2210 SCBCPSM$Q_MODULE_RAMEJ, ! = module name 
3; 1284 2211 SCBCPSM$Q_RFA)); ! - cfa buffer 
3: 1285 ssi¢ 
3; 1286 221 IF NOT .OPEN_STATUS 
3: 1287 2214 THEN 
; 1288 § 15 BEGIN 
3; 1289 6 IF .$BBLOCK COPEN_STATUS, STSS$V_FAC_NOJ EQL RMS$_FACILITY 
; 1290 2217 THEN 
: 1291 2218 PSMSSTORE_ERRORS (.SCB, 
; 129¢ 219 PSM$_MODNOTFND, 2, SCBCPSM$Q_MODULE_NAME). 
3 1$37 $59 -SCBEPSMSL_RECORD_NUMBER], .OPEN_STATUS, LBRSRET_RMSSTV ()) 
3; 1295 234 PSM$STORE_ERRORS (.SCB, 
: 1296 22 ODNOTFND, 2, SCBCPSM$Q_MODULE_NAME], | 
> 1297 224 3 .SCBEPSMSL_RECORD.NUMBER}, .OPEN_STATUS); 
: 1298 225 END; 
: 19.44 $8 
: 1300 7 2 .OPEN_STATUS 
; 1301 2228 


INPUT Print Symbiont -- input services 
v04-000 OPEN LIBRARY MODULE 
; 1302 2229 1 END; 


007¢ 


08 
53 Bibs 
01¢4 

000000006 00 

54 

30 

01 54 oc 


000000006 00 


=] 
VOI TWN VIeoW™"omn 
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026C 
B 
66 B 
1 
D 
026C D 
D 
D 
B 
66 B 
50 0 
4 


Routine Base: CODE + 06A7 


Routine Size: 100 bytes, 


00000 OPEN agement rah 


5 
1g. Sep-1984 
14- ~8ep-19 4 


1$: 


2$: 


R 
PUSHAB 452(SC 


M 
PUSHAB 530° (SC 
MOVAB 4 C 


06:16:38 VAX=11 Pi ieseze v4.0- 


DISKSVMSMAS CPRTS 


B) 
(SCB), R3 
B) 
oe LBRSLOOKUP_KEY 
RO, OPEN STAT 


OPEN. STATUS, 2$ 
, #12, OPEN_STATUS, #1 


#0, LBRSRET_RMSSTV 
open STATUS 
620(SCB) 
R3 
2 
#“M<R2,R5> 
#7, PSMSSTORE_ERRORS 
OPEN STATUS 
6g0(SCB) 


#2 

#°M<R2,R5> 

#6, PSMSSTORE_ERRORS 
OPEN_STATUS, RO 


7 
MB. 


42 
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46. 
fat” 


M R 
INPUT Print Symbiont -- input services 1$° e 4 VAX-11 Ol iss. =-32 V4.0-742 47. ef 
v04-000 READ_FILE.A AST 14- 338: 138e 6: 48: 8 DISKSVMSMASTER: CPRTSMB. SRCJINPUT. B32. 79 * (22) | 
: 1304 OQ 1 %SBTTL ‘READ_FILE_AST’ 
; 1305 1 1! Functional Description: 
3: 1306 ¢ 1! This routine is the read completion AST for RMS file reads. 
3; 1507 7 | It reports completion of the asynchronous read to the symbiont 
3 : BS ¢ ! through the PSMSREPORT Prout ine. 
; 1310 6 1 ! Formal Parameters: 
$ : V} i : } RAB : address of the RMS RAB block 
:1 i 9 1/1 Implicit Inputs: | 
: 1314 40 1! 
1316 sty | i implicit 0 | 
3 ' Implic ut a 
: 1317 2048 Bt Rae ‘ | 
3; 1318 2244 1! 
3 1319 seee 1 ! Returned Value: 
: 1320 246 1! 
> 1321 2247 1 | 
3 1356 2248 1! Side Effects: 
3; 132 2249 1! 
: 1324 2250 1 !-- 
: 1325 $$2) 1 ROUTINE READ -FILE AST ( 
3; 1326 $26 1 RAB : wr peneLock 
3: 1327 2253 1 } : LUE = 
: 1328 2254 $ BEGIN 
3 1380 2255 
3; 1330 2256 2 LOCAL | 
3: 1331 2257 2 $CB : REF $BBLOCK, 
: 1332 2258 2 USER_RECORD : REF VECTOR 
: 1333 2259 2 $ 
3 1334 2260 i nce 
3 1335 2261 scB RABCR ABS taf crm 
; 1336 2264 é USER “RECORD = SCBLPSM$Q_USER_RECORD); 
3; 1338 2264 2 USER_RECORDCSIZE] = .RABCRABSW_RSZJ; | 
; 13 $562 2 USER “RECORDCADDRI = .RABCRABSL— _RBF I; 
3: 1341 2267 $ PSMSREPORT (SCB); 
: 1342 ssce 2 
3 1343 269 1 END; 


0000 00000 READ_FILE_AST: 
.@ORD 


| 

Save nothing 3 2251, 
50 04 AC 00 00002 MOVL RAB, RO > 2261 

18 AO DD 000 PUSHL  24(RO) : | 
51 6E 00000270 8F cl 90009 ADDL3 #624, SCB, USER_RECORD > 2262 
61 22 Ad 3C 00011 MOVZWL 34(R0), (USER RECORD) + 2264 

04 Al 28 Ad dO 90015 MOVL  40(RO), 4(USER_RECORD) > 2265 | 

SE DD OOO1A PUSHL SP + 2267 | 

000000006 00 01 FB 9001¢ CALLS #1, PSMSREPORT : 

04 0002 RET > 2269. 


; Routine Size: 36 bytes, Routine Base: CODE + 0708 
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VAX=11 Bli 
DISKSVMSMASTER: CPRTSMB.SRCJINPUT.B32; 


Bliss-32 V4.0-742 


$163 A 
255: I 


put services 


LAST 


FILE 


Cc 
— 
i 
0 
ro) 
c 
°o 
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2 
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” 
ew 
c 
- 
J 
a 


READ_ 


Pa 


B.SRCJINPUT.B32;1 
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S 


VAX=11 
DISKSVMSMASTER: CPRTSM 


put services 


FILE_ERR 


Print Symbiont <= in 


READ 


PUT 
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ew 
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INPUT 
v04-000 
0 
0 


PR eS ree FS easre rere *S*ererere*B*ererarse rere 


dD 6 
INPUT rint Symbiont -- input services 16-Sep- VAX-11 Bliss-32 V4.0-742 1 
v04-000 READ _FILE_ERR 14- =e 1382 9g: 48: 3B DISK Syme MASTER: CPRTSMB.SRCJINPUT. B32; 1 #93} 
3¢ DD 0007F PUSHL Re : 
000000006 00 0 FB Bogs CALLS #35, SYSS$GET : 
9 0088 RET * 2321) 
7E 08 A2 7D ste 3$: mMOVQ 8(R2), =-(SP) 3 2336. 
0098 C4 9F 0008D PUSHAB 152(R4) + 2335. 
01 DD 00091 PUSHL : 
010610B2 8F DD 00093 PUSHL #17174706 : 
54 D6 00099 PUSHL R4 : 
19 11 00098 BRB 5$ F 
0c <A3 DD 0009D 4$ PUSHL 12(R3) 3 2341 
50 DD OO0A0 PUSHL R : | 
7E OC AE 00000098 8F C1 O00A2 ADDL #152, SCB, -(SP) 3; 2340 
01 DD OO0AB PUSHL s 
wreerees 8F DD GOOAD PUSHL 417174706 r 
18 AE DD 00083 PUSHL 3 
00000000G 00 06 FB 000B6 5$ CALLS #6, PSM$STORE_ERRORS : 
08 A3 99F OOOBD 6$ PUSHAB 8(R3) 3 2345. 
08 AE 9F 000CO PUSHAB SCB 3 
00000000G 00 02 FB 000C3 CALLS #2, PSMSREPORT : 
04 OOOCA RET 3 2347 


; Routine Size: 203 bytes, Routine Base: CODE + 072F 
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= 
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<= 
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$-32 


6 
t Symbiont == input services 16. -Sep-1984 02:16:5 VAX-11 B V4.0-742 52 
“LIBR 4 13:38 os DT SKSUMGMASTER CERT SMG. SRCIINPUT 832049" (205 


RARY _USER 14-Sep-1984 


ZSBTTL ‘READ _LIBRARY_USER' 

! Functional Description: 

his routine handles read function calls for the Library 
at non-ast level. 


Formal Parameters: 
STANDARD INPUT ROUTINE CALLING INTERFACE 


Implicit outs: 
one 


Implicit pe: 
ne 


Returned vexing 


ee ee ee 


Side Effects: 


cn one 
ROUT INE READ LIBRARY AUSER ( 
mMB_CONTEXT : REF SLONGWORD, 

OSER CONTEXT : REF VECTOR, 
FUNCTION : REF SEONGUORD, 
FUNC_DESC : REF VECTOR, 
FUNC_ARG REF VECTOR 

BEGIN % 

BUILTIN AP; 


LOCAL SCB : REF S$BBLOCK; 
SCB = .SMB_CONTEXT(); 
sean” tment -FUNCTIONC) OF 


CPSMSK READ]: 
LOCAL READ. STATUS; 
HS0_RFAJ, 0 
SCBLPSMSQ-RFA]. 1 
READ_STATUS = LBRSGET REC 
SCBLPSM$Q_USER_RECORD 
IF NOT .READ_STATUS 
IF .READ_STATUS EQL RMS$_EOF 
THEN 


RETURN PSM$_EOF 
ELSE 


IF .$BBLOCK CREAD_STATUS, STSS$V_FAC_NO) EQL RMS$_FACILITY 


PSMSSTORE_ ERRORS ( SCB 
PSMS_READERR, , SCBCPSMSQ_ LIBRARY_SPECIFICATION], 


0; 
0; 
( 
C 


cB CPSMSL LIBRARY_INDEXJ, 0, 
» SCBCPSM$Q_RFA)); 


SN NN NNR AAA AAA AAA MMA BEE EE EAN INr 
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1 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
2 
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3 
: 
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‘Tare PETE re TETE Tere rerTere ree eee eee eee eee Tere rere rere re rere rele rer ere re rere re rere rere rereraere re Taree 
mee ee ee ee me ed ed ed 8 ed od dd dd ed 
ye ae es >? oF > >be >t >t >t >t at et et et et ee ee a a eS 
COOWNOA UE WN 0 OONO UE WN OC OODNAUE WN OVD ONOUE WN "OVO ONOULSWWN—OVOO~nou 


onnNN 


003C 06000 READ a Live 


Save R2,R3,R4,R5 
000000006 00 9€ 00002 MOVAB DeMSSTORE enone, RS 
04 BC DO 00009 MOVL aSMB CONTEX T, SCB 
0C BC DO 0000D MOVL  aFUNCTI ma 
50 D1 00011 CMPL RO, i 
6F 12 00014 BNEQG = 3$ 
10 BC D4 00016 CLRL a UNC DESC 
0208 C3 9€ 00019 MOVAB 520(STB), RO 
60 7C OO01E CLRQ = (RO) 
50 DD 00020 PUSHL R09 
0270 Ce 9F 00022 PUSHAB 624(SCB) 
E D4 000 6 CLRL {SP 
01c4 C2 9F 000 PUSHAB 452(SCB) 


6 

INPUT Print Symbiont -- input services ihese -1984 02:16:5 VAX-11 Bliss-32 V4.0-742 53 
| ¥06~000 READ “LIBRARY _USER 14- Sep-1984 1 38: :0 DISKSVMSMASTER: CPRTSMB. SRCJINPUT. B32, 79 © (24) 

> 1481 405 4 .READ_STATUS, LBRSRET_RMSSTV ()) 

; 148¢ 406 4 . 

: 148 407 4 PSMSSTORE ERRORS (; SCB 

+ 1484 408 4 MS$_READERR, 1, SCBCPSM$Q_LIBRARY_SPECIFICATION, 

> 1485 409 4 .REAB_STATUS gs. 

s 1486 410 3 END; 

: 1487 411 END; 

3; 1488 tig 

: 1489 241 CPSM$K_OPEN): 

+ 1490 2414 BEGIN 

> 1491 2415 RETURN. IF_ERROR_ (CALLG (.AP, OPEN_LIBRARY)) 

: 149¢ hig ; RETURN IF apRRORS (CALLG (.AP. OPEN-LIBRARY “MODULE)); 

3: 149 417 tos C_ARGCOJ = PSMSK_CC_ INTERNAL; 

+ 1494 2418 2 END 

: 1495 2419 

> 1496 2420 2 CPSMSK some 

: 1497 hel ‘ RETURN_IF_ERROR_ (CLOSE_LIBRARY (.SCB)); 

: 1499 2423 é CPSM$K_POSITION_TO_KEY]: 

: 1500 2424 N 

: 1501 2425 3 VECTOR psceresnse. RFA], 0) = .VECTOR C.FUNC_DESCCADDRI, 0); 

> 1502 2426 3 VECTOR CSCBCPSMSQ-RFAJ, 1) = .VECTOR C.FUNC_DESCLADDRJ, 1]; 

: 1503 2427 2 END; 

: 1504 2428 2 

: 1505 2429 2 CPSM$K_GET_KEY): 

: 1506 2430 3 BEGIN 

: 1507 2431 3 FUNC_DESCCSIZE] = PSM$S_RFA; 

> 1508 2432 3 FUNC"DESCCADDR] = SCBCPSM$Q_RFA); 

: 1509 2433 2 END: 

: 1510 2434 2 

: 1511 2435 2 COTHERWISE): 

> 1512 2436 2 RETURN PSM$_FUNNOTSUP; 

: 1513 2437 2 

: 1514 2438 2 TES; 

: 1575 2439 2 

: 1516 2440 2 SS$_NORMAL 

: 1517 2441 2 

: 1518 2442 1 END: 


e——_——_ ———$——— ee 


z= | 


| 
6 
| INPUT Print Symbiont -- input services 18. Sep-1984 VAX-11 Bliss-32 V4.0-742 54 | 
geen: READ. LIBRARY. USER 14- ~8ep-1984 6: 48: 38 DISKSVMSMASTER: CPRTSMB. SRCJINPUT. B32, 13° (24) 
000000006 0 4 FB 000 CALLS #4, LBRSGET_RECORD : 2393 
| 3 : D0 00 ; MOVL RO, READS STATUS : 
i, 53 £8 000 6 BLBS READ s Tus, 4$ + 2394 
0001827A BF 53 +D1 000 CMPL = READ~ STATUS. #98938 + 2396 
08 if} 00040 BNEQ : 
| 50 000000006 &F 06 00042 MOVL #PSM$_EOF, RO : 2398 
54 00cO 6C2 COE O004A 1$ MOVAB 192(R2) + 2404 
01 53 0c 19 FD S004 CMPZV 6, #12, RREAD. STATUS, #1 + 2401 
000000006 00 00 FB 00056 CALLS #0, LBRSRET_RMSSTV + 2405 
20 DD 90090 PUSHL : 
53 DD 0005F PUSHL READ_STATUS : 
54 DD 00061 PUSHL 4 + 2404 
01 DD 00063 PUSHL #1 : 
010610B2 8F DD 00065 PUSHL  #17174706 : 
52 DD 00068 PUSHL : 
65 06 FB 0006D CALLS #6, PSMSSTORE_ERRORS é 
71 11 00070 BRB : 
53 DD 00072 2$ PUSHL READ_STATUS + 2409 
54 DD 00074 PUSHL 4 : 2408 
01 DD 00076 PUSHL #1 : 
01061082 8F DD 00078 PUSHL  #17174706 ; 
52 DD OO07E PUSHL § : 
65 05 FB 00080 CALLS #5, PSMS$STORE_ERRORS : 
SE 11 00083 BRB 9$ + 2396 
04 50 D1 00085 3$ CMPL RO, #4 + 2413 
16 12 00088 BNEQ ; 
FD63 CF 6C FA OOO8A CALLG (AP), OPEN_LIBRARY 3 2415 
54 50 £9 OO008F BLBC = ST Y ; 
FE16 CF 6C FA 0009 CALLG (AP), OPEN _LIBRARY_MODULE : 2416 
4C 50 €9 0009 BLBC STATUS, : | 
146 BC 01 DO 0009A MOVL #1, @FUNC_ARG > 2417 
43 11 OO09E 4$: BRB 9$ : 2383) 
02 50 D1 OOOAO 5$: CMPL RO, #2 + 2420 
0B 12 000A3 BNEQ 6$ : 
52 DD O00A5 PUSHL  SCB > 2421 
FB89—sCF 01 FB O00A7 CALLS #1, CLOSE_LIBRARY : 
34 50 €8 OOOAC BLBS STATUS, 9S ; 
04 OOOAF RET : 
07 50 D1 00080 6$: CMPL RO. #7 + 2423 
12 12 60083 BNEQ : 
51 0208 C2 9€ 00085 MOVAB SS0csca). R R1 > 2425 
50 10 AC 0dO 000A MOVL §FUNC_DESC, RO : 
50 04 AO DO 000B MOVL 4(ROJ, RO : 
61 60 7D 000C MOVO (RO), (RI ; 
1¢ 11 000¢ BRB 9$ : 2383 
06 50 01 000C7 7$: LM“®L =O, #6 > 2429 
OF if} OOOCA BNEQ 8$ : 
50 10 Ac dO 000CC MOVL §FUNC_DESC, RO > 2431 
60 08 D0 9909 MOVL @ : 
04 Ad 0208 C2 9€ 000D MOVAB 520(R2), 4(RO) F 3432 
08 11 00009 BRB : 23 
50 000000006 &F p0 tte 8$: MOVL #PSM$_FUNNOTSUP, RO > 2436 
50 01 DO OO0E3 98: MOVL #1, RO + 2442 
04 OOOE6 10$:  —«RET ; 


x 
=z 


INPUT Print Symbiont == input services 
04-000 BR . 


READ_LI 


; Routine Size: 231 bytes, 


ARY_USER 


Routine Base: 


CODE + O7FA 


H 6 
1erSep-1986 19:59:08 


Page 55 
RCJINPUT.B32;1 (24) 


a 


| 
| 
| 


56 


6 
INPU Print Symbiont -- input services rhage -1984 02:16:5 VA 0-742 Page 
04=000 SUME 4 ence 9ke 98:38:38 Ht SMB. SRCJINPUT.B32:1> (25) 


<2 
go 


i 


SBTTL ‘RESUME’ , 

Functional Description: 
This routine is scheduled at AST level by non-ast level 
routines which must report completion at AST level. 


Formal Parameters: 
S$cB : SCB address 


Implicit Inputs: 
none 


PUPS VSVSVSISISIVIIT 


Wirorororororororerer 
OOONOUSWN oO 


Implicit Outputs: 
none 


FASS 


x 
' 
i 
' 
i 
' 
i 
i 
i 
i 
' 
i 
i 
i 
: Returned Value: 

: non 
' 

i 


' Side Effects: 
non 


ROUTINE RESUME ( 
SCB 


WANA 


ONAOUSWN—OOOnNOU 


: REF SBBLOCK 

: NOVALUE = 

BEGIN 

Return both the SCB address and the non-ast level status by reference 
PSMSREPORT (SCB, SCBCPSM$L_NON_AST_STATUS)); 

END; 


MNMOPONMONONo NNN Nononononononorunonononononopofornopononon z 


See Se ee Oe Ge Oe Se Ge Se Se Ge Se Ss Se Se Se Se Se Se Se Se Se Se Sees ee Se See 

kk kd a 
Sao tek tak tak tal Dal Dal Dal Dl al tal ak al Sel De Dl St St at et et et ae at et te 
NSO OONAWNEWN | O OONAYL SWN —OOONOULS Ww 


DVD IVPVPVSUSVSVSISISI SIS SITIO 
SNA A AAA AAA AA MMIII 
—PONINONINUR) 


SREP EES 


o 


0000 00000 RESUME: .WORD Save nothing : 2463. 

7E 04 AC 000001DC 8F C1 00002 ADDL3 #476, SCB, =(SP) : 2470. 
04 AC 9F 00008 PUSHAB SC : 
00000000G 00 02 FB 0000 CALLS #2, PSMSREPORT : 
04 0001 RET : 


2472. 


Routine Size: 22 bytes, Routine Base: CODE + 08E1 
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J 6 
INPUT Print Symbiont -- input services 16-Sep-1984 02:16:5 VAX-11 Bliss-32 V4.0-742 Page 57 MER 
v04-000 SCHEDULE _USER_LEVEL 12286871382 93:38:5 DISKSVMSMASTER:CPRTSMB.SRCJINPUT.B32;1 (26). ti 
: 1551 473 1 XSBITL ‘SCHEDULE_USER_LEVEL' ‘ 
3; ; 474 1 ! Functional Description: : 
3 475 1! This routine schedules other routines to be called at ‘ 
> 1554 476 1! non-ast level. ‘ 
; 1555 677 1% : 
; 1228 478 1 ! Formal Parameters: : 
3 155 479 1! : address of SCB ? ; : 
>; 1558 480 1! AST_LEVEL_ROUTINE : address of AST routine that is to : 
; 1559 481 1! be called when non-ast completes ; 
; 1560 482 1! AST_PARAMETER : paramater to pass to ast routine : 
; 1561 483 1! USER_LEVEL_ROUT INE : address of non-ast routine : 
3 1266 484 1! USER_LEVEL_ARG_COUNT : non=ast routine argument count ; : 
; 1207 rt #4 ! USER_LEVEL_ARG_LIST : address non-ast routine argument List ; 
; 1565 487 1! Implicit Inputs: : 
; 1566 488 1! none ‘ 
; 1567 489 1! : 
3; 1568 490 1! Implicit Outputs: : 
3; 1569 2491 1! none . 
; 1570 2492 1! . 
: 1571 2493 1 ! Returned Value: : 
; 1378 2494 1! non : 
3 157 $t32 1! : 
: 1574 496 1! Side Effects: ‘ 
3; 1575 2497 1! none : 
: 1576 2498 1 !-- : 
; 1577 2499 1 ROUTINE SCHEDULE_USER_LEVEL ( | : 
; 1578 2500 1 SCB : REF S$BBLOCK, ° 
; 1579 2501 1 AST_LEVEL_ROUTINE, ° 
; 1580 2502 1 AST AMETER, 
3 1581 2503 1 USER_LEVEL_ROUTINE, 
; 1386 2504 1 USER_LEVEL_ARG_COUNT, 
; 158 $202 1 USER_LEVEL_ARG_LIST 
3 1584 506 1 : NOVACUE = 
: 1587 2509 2 BUILTIN 
; 1588 2510 2 ACTUALCOUNT, 
; 1589 2511 2 ARGPTR 
1391 315 | 
3 1592 2514 2 LOCAL 
: 1593 2515 2 ARG_DESC : VECTOR (2); 
: 1594 $21$ § 
3; 1595 51 ARG_DESC CSIZE] = ACTUALCOUNT () * 4; 
: 1396 seig § ARG_DESC CADDR] = ARGPTR () + 4; 
; 1398 3520 3 SIGNAL_IF_ERROR_ (PSMSSCHEDULE_NON_AST (ARG_DESC)); 
: 1600 $35) 1 END; 
0004 00000 SCHEDULE_USER_LEVEL: 
~-WORD Save R2 3 2499 | 


K «é | 
Print Symbiont <= input services 16-Sep-1 75 VAX=11 s-32 V4.0-74 

SCHEDULE _USER_LEVEL : 14- 338 -19 3b 6: 48: 38 DISKSVMS oH STER:CPRISMB, SacJINPUT. B32. 7 9 085 | 
35 Oe oh 0095 ayes tab) RO ; ony 
7E 85 g 09 ASHL #2 eok ARG_DESC : 
04 AE 04 AC 9 i MOVAB 4CAPD ARG_DESC+4 : 3318 
000000006 9 1 F 1 CALLS #1, PSM$SCHEDULE _NON_AST : 
D 1A MOVL RO, STAT us : | 

5 5 $020 ntl fins. 1 ; 

000000006 00 07 FB 00028 CALLS #1, LIBSSIGNAL : 
04 00029 1$: RET + 2522 


; Routine Size: 42 bytes, Routine Base: CODE + O8F7 
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v04-000 


; 160 
; 160 


Name 
DATA 
CODE 


File 


; Compi 


MOSER o- teas services 


$52 0 ELUDOM 


~$255$DUA28: CSYSLIBILIB.L32;1 


; 3030 
: Lexemes/CPU-Min: 27633 
: eae Used: 

ation Complete 


-EXTRN LIBSSIGNAL 
PSECT SUMMARY 


Bytes Attributes 


NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
2337 NOVEC,) JWRT, RD . EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


“neacnee Syabols ooce-ooe Pages Processing 
Total toaded Percent Mapped Time 
18619 169 0 1000 '00:01.9 


COMMAND QUALIFIERS 


: BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$: INPUT/OBJ=OBJ$: INPUT MSRC$: INPUT/UPDATE=(ENH$: INPUT) 
2308 code + 33 data bytes 
00:50.0 


RCJINPUT. 832: 1 ed 
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